home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Over 1,000 Windows 95 Programs
/
Over 1000 Windows 95 Programs (Microforum) (Disc 1).iso
/
1468
/
demo.frm
(
.txt
)
< prev
next >
Wrap
Visual Basic Form
|
1996-07-19
|
12KB
|
377 lines
VERSION 4.00
Begin VB.Form frmDemo
BorderStyle = 1 'Fixed Single
Caption = "VBMax Liquid Crystal Display Demo"
ClientHeight = 3270
ClientLeft = 60
ClientTop = 345
ClientWidth = 6375
Height = 3675
Icon = "Demo.frx":0000
Left = 0
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
ScaleHeight = 218
ScaleMode = 3 'Pixel
ScaleWidth = 425
Top = 0
Width = 6495
Begin VB.PictureBox picDate
Height = 210
Left = 570
ScaleHeight = 150
ScaleWidth = 915
TabIndex = 26
Top = 3000
Width = 975
End
Begin VB.PictureBox picTime
Height = 210
Left = 2460
ScaleHeight = 150
ScaleWidth = 795
TabIndex = 25
Top = 3000
Width = 855
End
Begin VB.Timer Timer1
Interval = 500
Left = 5520
Top = 540
End
Begin VB.CommandButton cmdName
Caption = "E&xit"
Height = 315
Index = 9
Left = 4920
TabIndex = 24
Top = 2880
Width = 1215
End
Begin VB.CommandButton cmdName
Cancel = -1 'True
Caption = "&About"
Height = 315
Index = 8
Left = 3600
TabIndex = 23
Top = 2880
Width = 1215
End
Begin VB.Frame Frame5
Caption = "More Examples"
Height = 1815
Left = 3480
TabIndex = 14
Top = 900
Width = 2775
Begin VB.CommandButton cmdName
Caption = "Alarm"
Height = 315
Index = 4
Left = 120
TabIndex = 21
Top = 1380
Width = 1215
End
Begin VB.CommandButton cmdName
Caption = "Calculator"
Height = 315
Index = 0
Left = 120
TabIndex = 15
Top = 300
Width = 1215
End
Begin VB.CommandButton cmdName
Caption = "Countdown"
Height = 315
Index = 1
Left = 120
TabIndex = 17
Top = 660
Width = 1215
End
Begin VB.CommandButton cmdName
Caption = "Stopwatch"
Height = 315
Index = 2
Left = 120
TabIndex = 19
Top = 1020
Width = 1215
End
Begin VB.CommandButton cmdName
Caption = "24 Hour Clock"
Height = 315
Index = 3
Left = 1440
TabIndex = 18
Top = 660
Width = 1215
End
Begin VB.CommandButton cmdName
Caption = "Dialer"
Height = 315
Index = 5
Left = 1440
TabIndex = 20
Top = 1020
Width = 1215
End
Begin VB.CommandButton cmdName
Caption = "12 Hour Clock"
Height = 315
Index = 6
Left = 1440
TabIndex = 16
Top = 300
Width = 1215
End
Begin VB.CommandButton cmdName
Caption = "LCD Array"
Height = 315
Index = 7
Left = 1440
TabIndex = 22
Top = 1380
Width = 1215
End
End
Begin VB.Frame Frame1
Caption = "LCD Attributes"
Height = 1995
Left = 120
TabIndex = 1
Top = 900
Width = 3195
Begin VB.Frame Frame4
Caption = "Colors"
Height = 1260
Left = 1920
TabIndex = 10
Top = 240
Width = 1155
Begin VB.CommandButton Command7
Caption = "BackColor"
Height = 315
Left = 90
TabIndex = 12
Top = 780
Width = 975
End
Begin VB.CommandButton Command6
Caption = "ForeColor"
Height = 315
Left = 90
TabIndex = 11
Top = 360
Width = 975
End
End
Begin VB.Frame Frame2
Caption = "Size"
Height = 1260
Left = 120
TabIndex = 2
Top = 240
Width = 615
Begin VB.VScrollBar VScroll1
Height = 795
Left = 300
Max = 15
Min = -15
TabIndex = 5
Top = 300
Width = 195
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "-"
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 12
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 300
Left = 90
TabIndex = 3
Top = 270
Width = 105
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "+"
BeginProperty Font
name = "MS Sans Serif"
charset = 0
weight = 700
size = 12
underline = 0 'False
italic = 0 'False
strikethrough = 0 'False
EndProperty
Height = 300
Left = 90
TabIndex = 4
Top = 840
Width = 165
End
End
Begin VB.CheckBox Check1
Caption = "Show unlit segments"
Height = 300
Left = 180
TabIndex = 13
Top = 1620
Value = 1 'Checked
Width = 1875
End
Begin VB.Frame Frame3
Caption = "Alignment"
Height = 1260
Left = 840
TabIndex = 6
Top = 240
Width = 975
Begin VB.OptionButton optAlign
Caption = "Left"
Height = 255
Index = 0
Left = 90
TabIndex = 7
Top = 300
Width = 855
End
Begin VB.OptionButton optAlign
Caption = "Right"
Height = 255
Index = 1
Left = 90
TabIndex = 8
Top = 600
Value = -1 'True
Width = 855
End
Begin VB.OptionButton optAlign
Caption = "Center"
Height = 255
Index = 2
Left = 90
TabIndex = 9
Top = 900
Width = 855
End
End
End
Begin VB.PictureBox picLCD
Height = 435
Left = 120
ScaleHeight = 375
ScaleWidth = 6075
TabIndex = 0
Top = 120
Width = 6135
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "Time:"
Height = 195
Left = 1980
TabIndex = 28
Top = 3000
Width = 390
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "Date:"
Height = 195
Left = 120
TabIndex = 27
Top = 3000
Width = 390
End
Attribute VB_Name = "frmDemo"
Attribute VB_Creatable = False
Attribute VB_Exposed = False
Option Explicit
Dim moLCD As New CLCD
Dim moTime As New CLCD
Dim moDate As New CLCD
Dim mnOrigHeight As Integer
Private Sub Form_Load()
Move 0, 0
With moDate
.Alignment = gnCENTER
.ForeColor = vbGreen
.AutoSize = gnAUTOSIZE_LCD_TO_CONTAINER
Set .Container = picDate
.Caption = Format$(Now, "mm-dd-yy")
End With
With moTime
.BlinkColon = True
.Alignment = gnCENTER
.ForeColor = vbGreen
.AutoSize = gnAUTOSIZE_LCD_TO_CONTAINER
Set .Container = picTime
End With
With moLCD
.ShowUnlitSegments = True
.AutoSize = gnAUTOSIZE_LCD_TO_CONTAINER
Set .Container = picLCD
.Caption = "-123,456,789.012"
End With
mnOrigHeight = picLCD.Height
End Sub
Private Sub Form_Unload(Cancel As Integer)
Set moDate = Nothing
Set moTime = Nothing
Set moLCD = Nothing
Set frmDemo = Nothing
End
End Sub
Private Sub cmdName_Click(Index As Integer)
Select Case Index
Case 0: Calculator.Show
Case 1: CountDown.Show
Case 2: Stopwatch.Show
Case 3: Clock24.Show
Case 4: AlarmForm.Show
Case 5: Dialer.Show
Case 6: Clock12.Show
Case 7: LCDArray.Show
Case 8: moLCD.About
Case 9: Unload Me
End Select
End Sub
Private Sub Command6_Click()
moLCD.SelectForeColor
End Sub
Private Sub Command7_Click()
moLCD.SelectBackColor
End Sub
Private Sub optAlign_Click(Index As Integer)
Select Case Index
Case 0: moLCD.Alignment = gnALIGN_LEFT
Case 1: moLCD.Alignment = gnALIGN_RIGHT
Case 2: moLCD.Alignment = gnCENTER
End Select
End Sub
Private Sub VScroll1_Change()
picLCD.Height = mnOrigHeight + VScroll1.Value
moLCD.Redisplay
End Sub
Private Sub Check1_Click()
moLCD.ShowUnlitSegments = Not moLCD.ShowUnlitSegments
End Sub
Private Sub Timer1_Timer()
moTime.Caption = Format$(Now, "h:mm A/P")
End Sub
(.txt)
(.txt)